home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ WinXP Explorer CompDesc 1.xpl.bak < prev    next >
Text File  |  2003-12-20  |  3KB  |  98 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="8"
  3. "COUNT"="3"
  4. "UIPATH 1"="Appearance\Explorer\Settings"
  5. "UIPATH 2"="Network\Explorer"
  6. "NAME"="Remote Computers Description"
  7. "TEXT 1"="Show Desc..."
  8. "TEXT 2"="Edit Desc..."
  9. "TEXT 3"="Delete"
  10. "VERSION"="1.00"
  11. "OSVERSION"="0000011"
  12. "LANGUAGE"="VBScript"
  13. "DESCRIPTION 1"="If you have drives connected through your network, you might see that Windows does no longer simply display the server name inside Explorer "software on FileServer1 (S:)" but will use the computer description of the server "software on Central Fileserver for our company (S:)" if any."
  14. "DESCRIPTION 2"="Basically this function should help people to more easily select the server they want to use but it can also be very annoying having so long drive description inside Explorer. Moreover, this function will only retrieve the computer description once. This means, if the server description was a very long name before ("Central Fileserver for our Company") and is later changed to a shorter name ("Central Fileserver") you will still see the old, long name. That's because Explorer does retrieve the computer description once and stores it locally. It does not care if the server its description changes later on."
  15. "DESCRIPTION 3"="With this plug-in you can either edit the description to nothing (empty field) and thus you will simply see the server name (e.g. "software on FileServer1 (S:)"). This is the same behavior as Windows NT or Windows 2000 are using."
  16. "DESCRIPTION 4"="You might also simply change the description to something you might like (e.g. "software on My Cool New Description (S:)"). "
  17. "DESCRIPTION 5"="The final option you have is to simply delete a server entry and on the next connection to that server, Windows will retrieve the current computer description again and store it. "
  18. "AUTHOR"="Xteq Systems"
  19. "CONTACTURL"="http://www.xteq.com"
  20. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  21. "COMMENT 1"="Thanks to alzheimer (tobipick.de) for this plug-in!"
  22.  
  23.  
  24. sP="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\ComputerDescriptions\"
  25. iCount=0
  26.  
  27. Sub Plugin_Initialize  
  28.    Call ReadData
  29.  
  30. End Sub
  31.  
  32. Sub ReadData
  33.  for i=1 to iCount
  34.      Call SetUIElement(i,"")
  35.  next 
  36.  
  37.    iCount=RegEnumValues(sP)
  38.    for l=1 to iCount
  39.      s=sP & RegEnumElement(l) 
  40.      s2=RegReadValue(s)
  41.  
  42.      Call SetUIElement(l,RegEnumElement(l) & " = " & s2)
  43.    next
  44.  
  45. End Sub
  46.  
  47. Sub Plugin_CheckData(ElementIndex)
  48. End Sub
  49.  
  50. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  51.  if ElementSubIndex>0 then 'OK, user has selected an item
  52.  
  53.     s=sP & RegEnumElement(ElementSubIndex)
  54.     sV=RegReadValue(s) 
  55.  
  56.  
  57.     If ElementIndex=1 then 
  58.        'Show Info
  59.  
  60.        Call MsgInformation("Description of the selected computer: " & chr(13) & chr(10) & sV)
  61.        exit sub
  62.     end if
  63.  
  64.     if ElementIndex=2 then
  65.        'edit desc
  66.  
  67.        sV=InputWindow("Change description",sV,1)
  68.  
  69.        if IsEmpty(sV)=false then
  70.           'change it (write REG_EXPAND_SZ)
  71.           Call RegWriteValue(s,sV,1)
  72.           
  73.           'update UI
  74.           Call ReadData
  75.        end if 
  76.  
  77.     end if
  78.  
  79.     If ElementIndex=3 then    
  80.        'Delete!!
  81.  
  82.        Call RegDeleteValue(s) 
  83.        Call ReadData 
  84.     end if
  85.  
  86.  
  87.  
  88.  else
  89.   Call MsgWarning("No item selected - please select an item first.")
  90.  end if
  91. End Sub
  92.  
  93. Sub Plugin_Terminate 
  94. End Sub
  95.  
  96.  
  97.  
  98.